# cr16 testcase for mulsb $imm4/imm16/reg, reg
# mach(): cr16 

	.include "testutils.inc"

	start

	.global mulsb
mulsb:
	movw $-3,r4
	movw $7,r5

	mulsb r4, r5
	cmpw $-21, r5
	beq ok1
not_ok:
	fail

ok1:
	movw $3,r4
	mulw $7, r4
	test_h_gr r4, 21

	pass
